﻿<!-- #include file="mymin.asp" -->
<%
Call Head()
w "<card title='文章修改'><p>"

dim id,classid
id=request.QueryString("id")
classid=request.QueryString("classid")

if id="" or IsNumeric(id) = False then Call Error("ID无效！")
if classid="" or IsNumeric(classid) = False then Call Error("ID无效！")

dim test,title,author,author1
test=request.form("test")
title=request.form("title")
author=request.form("author")
author1=request.form("author1")

if test="" or title="" or (author="" And author1="")then Call Error("各项都不可以为空！")

If IsNumeric(author) And author1="" Then Call error("来源不能是纯数字")

if len(title)>30 or len(author)>15 or len(test)>20000 then Call Error("标题不要超过30字，来源不要超过15字，文章内容不要超过20000字，分多篇写。这有助于提高效率！")

dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select * from 74hu_article where id="&id,myconn,3,3
rs("test")=test
rs("HU_date")=time_now
rs("title")=title
If author1="" Then rs("HU_author")=author
rs.update
rs.close
set rs=nothing

%>
修改成功!
<br/>----------<br/>
<a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[返回文章]</a><br/>
<a href="wzclass.asp?sid=<%=sid%>">[返回文章]</a><%Call Last%>